set showLines of card field "Notes to You" to false
hide card field "H Hide Add Notes"
end EraseLines
-- part 40 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
hide card field "Notes to you"
end mouseUp
-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=474 top=51 right=79 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 22165 / 22165
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: H Go to First Card
----- HyperTalk script -----
on mouseUp
put empty into card field "Notes to You"
eraseLines
show card field "notes to you"
put "Go to First Card" into line 2 of card field "Notes to You"
put "Using the mouse to click this button displays the card " into line 4 of card field "Notes to You"
put "you first saw when you opened this stack, the title page. " into line 5 of card field "Notes to You"
put "If you haven't explored it yet, there is more there than" into line 6 of card field "Notes to You"
put " a cat, a mouse, a title, and a few navigation buttons. " into line 7 of card field "Notes to You"
end mouseUp
-- part 19 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=469 top=110 right=145 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 29484 / 29484
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: H Back to Work
----- HyperTalk script -----
on mouseUp
hide card field "Notes to You"
put empty into card field "Notes to you"
visual effect dissolve
pop card
end mouseUp
-- part 3 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=18 top=148 right=329 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Notes to You
----- HyperTalk script -----
on mouseUp
hide card field "Notes to You"
hide card field "H Hide Add Notes"
end MouseUp
-- part 4 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=245 top=0 right=22 bottom=278
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: H cut card
----- HyperTalk script -----
on mouseUp
put empty into card field "Notes to You"
EraseLines
show card field "notes to you"
put "Cut Card" into line 1 of card field "Notes to You"
put "This button was needed to hold a script sometimes called by another" into line 2 of card field "Notes to You"
put "script, but it can be used by itself. I chose to use Cut Card" into line 3 of card field "Notes to You"
put "rather than Delete because with it, in case of error, you can " into line 4 of card field "Notes to You"
put "immediately re-paste the card. Consider it a form of insurance." into line 5 of card field "Notes to You"
put "Also, this after this script has finished its operations it displays the" into line 6 of card field "Notes to You"
put "first Index card to remind you to delete the Index button too." into line 7 of card field "Notes to You"
put "Note how the menu bar acts as a safety device to prevent accidents." into line 8 of card field "Notes to You"
put " " & quote & "Warning: Be sure there is nothing important in" into line 9 of card field "Notes to You"
put "the Additional Notes field you might be deleting " into line 10 of card field "Notes to You"
put "at the same time," & quote & " says Experience." into line 11 of card field "Notes to You"
end mouseUp
-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=282 top=0 right=22 bottom=331
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: H Namer
----- HyperTalk script -----
on mouseUp
put empty into card field "Notes to You"
EraseLines
show card field "Notes to you"
put "Name Cards" into line 2 of card field "Notes to You"
put "Navigation of this stack requires that the cards be refered to" into line 4 of card field "Notes to You"
put "by the name you give the script in the Name of Script field." into line 5 of card field "Notes to You"
put "This button activates a script that puts the contents of the" into line 6 of card field "Notes to You"
put "Name of Script field into the Card Name of one or all cards." into line 7 of card field "Notes to You"
put "The menuBar acts as a safety device to prevent accidental selecion" into line 8 of card field "Notes to You"
put "of this button. Command-SpaceBar hides and reveals it." into line 9 of card field "Notes to You"
end mouseUp
-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=335 top=1 right=22 bottom=426
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: H Add to Index
----- HyperTalk script -----
on mouseUp
put empty into card field "Notes to You"
EraseLines
show card field "Notes to you"
put "Add to Index" into line 2 of card field "Notes to You"
put " If you manually type the information into the text fields of a new card," into line 4 of card field "Notes to You"
put "you can use this button to have the stack automatically create" into line 5 of card field "Notes to You"
put "a button for it on the Index card, ready for you to move it" into line 6 of card field "Notes to You"
put "into a place on the grid." into line 7 of card field "Notes to You"
put "The menuBar acts as a safety device to prevent accidental selecion" into line 8 of card field "Notes to You"
put "of this button. Command-SpaceBar hides and reveals it." into line 9 of card field "Notes to You"
end mouseUp
-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=382 top=30 right=45 bottom=403
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: H Go to Prev CC
----- HyperTalk script -----
on mouseUp
put empty into card field "Notes to You"
EraseLines
show card field "Notes to you"
put "Go to Previous Card" into line 2 of card field "Notes to You"
put "This button calls up the previous Collection Card. To see the" into line 4 of card field "Notes to You"
put "Index or the First Card, click on one of the buttons to the" into line 5 of card field "Notes to You"
put "left. Using this button you can cycle through the collection" into line 6 of card field "Notes to You"
put "without having to see the Opening, Help, or Index cards." into line 7 of card field "Notes to You"
end mouseUp
-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=414 top=31 right=46 bottom=435
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: H Go to Next CC
----- HyperTalk script -----
on mouseUp
put empty into card field "Notes to You"
EraseLines
show card field "notes to you"
put "Go to Next Card" into line 2 of card field "Notes to You"
put "This button calls up the next Collection Card. To see the" into line 4 of card field "Notes to You"
put "Index or the First Card, click on one of the buttons to the" into line 5 of card field "Notes to You"
put "left. Using this button you can cycle through the collection" into line 6 of card field "Notes to You"
put "without having to see the Opening, Help, or Index cards." into line 7 of card field "Notes to You"
end mouseUp
-- part 10 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=474 top=26 right=50 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: H Go Home
----- HyperTalk script -----
on mouseUp
put empty into card field "Notes to You"
EraseLines
show card field "Notes to you"
put "Go Home" into line 2 of card field "Notes to You"
put "On another card," into line 4 of card field "Notes to You"
put "if you clicked there you would be home now." into line 5 of card field "Notes to You"
end mouseUp
-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=464 top=80 right=116 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: H Go to Index H
----- HyperTalk script -----
on mouseUp
hide card field "Notes to you"
put empty into card field "Notes to you"
visual effect dissolve
go to card "Help Card 2"
end mouseUp
-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=293 top=47 right=62 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: H Card Id number
----- HyperTalk script -----
on mouseUp
put empty into card field "Notes to You"
EraseLines
show card field "Notes to you"
put "Google" into line 2 of card field "Notes to You"
put "This number is the id number of the card you are looking at." into line 4 of card field "Notes to You"
put "It has no practical value in this stack except to indicate" into line 5 of card field "Notes to You"
put "that you are looking at a different card." into line 6 of card field "Notes to You"
put " An extra feature for no extra charge. " into line 7 of card field "Notes to You"
end mouseUp
-- part 14 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=148 top=83 right=101 bottom=332
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: H Script Source
----- HyperTalk script -----
on mouseUp
put empty into card field "Notes to You"
EraseLines
show card field "Notes to you"
put "Source of Script" into line 2 of card field "Notes to You"
put " The name of the stack where you got or where you plan to put this script." into line 4 of card field "Notes to You"
put "You will be asked about the source of the script during the Add Script" into line 5 of card field "Notes to You"
put "and Add to Index processes, but you can pass on the question and " into line 6 of card field "Notes to You"
put "type the source/destination name in the field later." into line 7 of card field "Notes to You"
end mouseUp
-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=148 top=103 right=121 bottom=332
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: H Script Type
----- HyperTalk script -----
on mouseUp
put empty into card field "Notes to You"
EraseLines
show card field "Notes to you"
put "Type of Script" into line 2 of card field "Notes to You"
put " The same script can be use in a number of situations," into line 4 of card field "Notes to You"
put "but it helps if you remember what the source object" into line 5 of card field "Notes to You"
put "(Stack/Card, Field, or Button)" into line 6 of card field "Notes to You"
put "the script came from originally. During the automatic Add Script" into line 7 of card field "Notes to You"
put "sequence, you are prompted for a Type, but you can pass that" into line 8 of card field "Notes to You"
put "question and edit this field later if you need or wish to." into line 9 of card field "Notes to You"
end MouseUp
-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=148 top=63 right=81 bottom=332
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: H Script Name
----- HyperTalk script -----
on mouseUp
put empty into card field "Notes to You"
EraseLines
show card field "Notes to you"
put "Name of Script Field" into line 1 of card field "Notes to You"
put " A good name for the new script is the name of the stack, card," into line 3 of card field "Notes to You"
put "button, or field you copied the script from or where you plan" into line 4 of card field "Notes to You"
put "to copy the script to. It is necessary that there not be two " into line 5 of card field "Notes to You"
put "cards with identical entries in this field or the stack will not" into line 6 of card field "Notes to You"
put "work properly. Try appending nonsense words to common script" into line 7 of card field "Notes to You"
put "names if it seems a conflict could occur. The navigation of this" into line 8 of card field "Notes to You"
put "stack is keyed to the Script Name. If you change this field, change " into line 9 of card field "Notes to You"
put "the name of the card and the name of the button on the Index card. " into line 10 of card field "Notes to You"
end mouseUp
-- part 17 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=429 top=0 right=22 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: H Add Script
----- HyperTalk script -----
on mouseUp
show card field "H Add Script f"
end mouseUp
-- part 18 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=143 top=122 right=145 bottom=169
-- title width / last selected line: 0
-- icon id / first selected line: 19678 / 19678
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: H Add Notes
----- HyperTalk script -----
on mouseUp
get the visible of card field "H Hide Add Notes"
if it is true then
hide card field "Notes to You"
hide card field "H Hide Add Notes"
else
put empty into card field "Notes to You"
show card field "H Hide Add Notes"
set showLines of card field "Notes to you" to true
show card field "notes to you"
put "Additional Notes" into line 2 of card field "Notes to You"
put " While the script should be documented enough not to need further" into line 4 of card field "Notes to You"
put "comment, this is a text field overlaying the script field" into line 5 of card field "Notes to You"
put "where you can add notes about the author, or what you liked " into line 6 of card field "Notes to You"
put "about the script, or what you had for lunch the first day you " into line 7 of card field "Notes to You"
put "saw the referenced HyperCard stack. The Notes field is easily" into line 8 of card field "Notes to You"
put " recognized, for it is the one with the Show Lines set to true." into line 9 of card field "Notes to You"
end if
end mouseUp
-- part 39 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=387 top=98 right=137 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Beep
----- HyperTalk script -----
on mouseUp
put (item 4 of the rect of the target) - (item 2 of the rect of the target) into x
Put ( x * .75) + (item 2 of the rect of the target) into z
if (item 2 of the clickLoc) < z then
beep
else
play "MaleBeepSound22Hz"
end if
-- this script handles a diagonally divided button, intended to be
-- a right dogear
--put (item 1 of the clickLoc) - (item 1 of the rect of the target) --into x
--put (item 4 of the rect of the target) - (item 2 of the clickLoc) --into y
--if (x < y) then -- click is in upper left
-- beep
-- else
-- play "MaleBeepSound22Hz"
-- end if
end mouseUp
--This script was written by David Dunham (Delphi: DDUNHAM;
--CompuServe 76074,762; AppleLink D0457) as an illustration of
--a dog-ear. Normally, buttons must be rectangular. The button
--that has his script acts like two triangle-shaped buttons.
--This one acts like two buttons, depending on where you click. Thanks,
--Dave
-- part 38 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=21 top=26 right=60 bottom=53
-- title width / last selected line: 0
-- icon id / first selected line: 24044 / 24044
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: H Get Script
----- HyperTalk script -----
on mouseUp
put empty into card field "Notes to You"
EraseLines
show card field "Notes to you"
put "Get Script" into line 1 of card field "Notes to You"
put "This button will put on the screen a card full of buttons that offer" into line 3 of card field "Notes to You"
put "a number of options in searching a script for a key word or phrase." into line 4 of card field "Notes to You"
put "There is a separate help field on that card, as it was a later additon " into line 5 of card field "Notes to You"
put "to this stack. It is very much a work-in-progress at this time." into line 6 of card field "Notes to You"
put "Once you have searched the script and found the text you want, you " into line 7 of card field "Notes to You"
put "will be brought back to this stack where you can either launch another" into line 8 of card field "Notes to You"
put "search or bury your swag in a text field on a collection card." into line 9 of card field "Notes to You"
put "Happy hunting." into line 11 of card field "Notes to You"
end mouseUp
-- part 36 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=15 top=127 right=143 bottom=143
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 254
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: H Hide Add Notes
-- part 35 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: H Add Script f
----- HyperTalk script -----
on mouseUp
hide card field "H Add script f"
set scroll of card field "H Add script f" to 1
end mouseUp
-- part contents for card part 35
----- text -----
Add Script
The Add Script button contains the work-horse script of this stack.
What this script does:
1. Creates a new card at the end of the stack
2. Pastes your answers to three questions and the script you have copied into the appropriate fields
of the new card.
3. Puts the Name of the Script in the Card Name field.
3. Creates a new button on an Index Card that has a script linking it to the new card.
What you MUST do:
1. Before you click the Add Script button, make sure that the last thing you copied was text of some kind.
(In this version, if anything but text is in the Clipboard, you will get an error message, and, after
clearing the alert box, you will have to delete the new last card and the new Index card button.)
2. After clicking the button you have to answer the three questions. If you fail to provide a name for
the script, the Mac will beep and ask you to try again because the Card Name is given the
Script Name, and it is the identifier the stack uses in finding the right card. If you assign a duplicate
name to the new script, nasty things happen, so it might be a good idea to scan the Index cards to
see if the Script Name you have chosen is unique before continuing.
3. The next card you will see will be the last Index card with a new button bearing the name you assigned
the script. Move the new button to an empty space on the Index Card. If the number of buttons on
the current Index Card is 39, a new Index card will be created. (There are instructions in a
field of the Help Cards section for moving a button from one Index Card to another if you want to
group the buttons for like scripts together.)
4. Select the Browse Tool and (optional) click on the button to go to the new card, just to reassure
yourself it's there.
What you CAN do:
You can use the Script Holder field in a New Card as as a place to compose or modify a script, then give it a unique name and click the Add to Index button, which contains a subset of this Add Script script.
1. Go to the end of the stack and make a new card.
2. Enter a unique name in the Name of Script field (required) and put the appropriate information in the
other two fields (optional).
3. Type or paste your script into the scrolling text field. At any time after naming the script, hide the
menuBar using Command-SpaceBar and click on the button Add to Index while that card is on the
screen. The button's script will take over, renaming the new card with the name you gave your
script and creating a button on the Index card which you can then click on to get back to the card